home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_1
/
comline.zip
/
COMLINE.BAS
< prev
next >
Wrap
BASIC Source File
|
1990-10-20
|
3KB
|
68 lines
REM COMLINE.BAS / COMLINE.EXE - Copyright 1990 Butterhoofs' Enterprises
REM Command line parameter generator for use with Spitfire BBS Ver. 3.0
REM Free unlimited usage rights granted to all registered Spitfire Sysops
CLS:DIM V$(33) ' Prepare array for variables
OPEN "SFDOORS.DAT" for INPUT as #1 ' Open and read in variables from
FOR X% = 1 to 32 ' SfDoors.dat file
INPUT #1, V$(X%)
NEXT X%
CLOSE #1
GETLASTNAME: ' Trim to first space for last name
FOR X% = 1 to LEN(V$(2)) ' and make variable of remaining chars.
Y% = X%
IF MID$(V$(2),X%,1)=" " then X%=LEN(V$(2))
NEXT X%
V$(33)=right$(V$(2),LEN(V$(2))-y%)
FOR X% = 1 to LEN(V$(33)) 'Replace any remaining spaces with "_"
IF MID$(V$(33),X%,1)=" " then MID$(V$(33),X%,1)="_"
NEXT X%
OPEN "COMLINE.DAT" for INPUT as #1 ' Read in Command line description
INPUT #1, COMLINE$
CLOSE #1
FOR X% = 1 to LEN(COMLINE$) ' Search command line for variables
IF MID$(COMLINE$,x%,2) = "@V" THEN GOSUB GETVARNUM ELSE GOSUB MAKELINE
NEXT X%
GOTO DOSHELL
' get variable number in command line
GETVARNUM: ' and add variable to new line
VTEMP$=MID$(COMLINE$,X%+2,2)
VNUM%=VAL(VTEMP$)
SHELLINE$=SHELLINE$+V$(VNUM%)
RETURN
MAKELINE: ' test for non-command character
IF MID$(COMLINE$,x%,1) = "1" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "2" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "3" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "4" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "5" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "6" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "7" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "8" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "9" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "0" AND MID$(COMLINE$,x%-2,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "1" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "2" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "3" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "4" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "5" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "6" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "7" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "8" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "9" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "0" AND MID$(COMLINE$,x%-3,2) = "@V" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "V" AND MID$(COMLINE$,x%-1,1) = "@" then GOTO SKIPME
IF MID$(COMLINE$,x%,1) = "@" AND MID$(COMLINE$,x%+1,1) = "V" then GOTO SKIPME
SHELLINE$=SHELLINE$+MID$(COMLINE$,x%,1) ' add any normal chars to line
SKIPME:
RETURN
DOSHELL: ' Shell to dos w/ command line
SHELL SHELLINE$
END